home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 526-550 / disk_540 / req / reqlib.lzh / showoffreq.c < prev    next >
C/C++ Source or Header  |  1990-12-18  |  15KB  |  484 lines
  1.  
  2. #include    <intuition/intuition.h>
  3. #include    <exec/libraries.h>
  4. #include    <libraries/dosextens.h>        /* For the process structure definition. */
  5.  
  6.  
  7. #include    <libraries/dos.h>
  8.  
  9. #include    <libraries/reqbase.h>
  10.  
  11. #ifdef    AZTEC_C
  12. #include    <functions.h>
  13. #else
  14. /* Include something appropriate for Lattice C. */
  15. #endif
  16.  
  17.  
  18.  
  19. #define    WIDTH  640
  20. #define    HEIGHT 200
  21. #define    DEPTH  3
  22.  
  23. #define    GADGETSTARTX    20
  24. #define    GADGETSTARTY    52
  25.  
  26. #define    IDCMP    (GADGETUP)
  27. #define    FLAGS    (BACKDROP|SMART_REFRESH|ACTIVATE|BORDERLESS)
  28.  
  29. struct IntuitionBase    *IntuitionBase;
  30. struct GfxBase            *GfxBase;
  31. struct ReqLib            *ReqBase;
  32. struct Window            *window;
  33. struct Screen            *screen;
  34.  
  35. struct NewScreen ns =
  36.     {
  37.     0, 0,                    /* LeftEdge, TopEdge */
  38.     WIDTH, HEIGHT, DEPTH,    /* Width, Height, Depth */
  39.     0, 1,                    /* DetailPen, BlockPen */
  40.     HIRES,                    /* ViewModes */
  41.     CUSTOMSCREEN,            /* Type */
  42.     NULL,                    /* Font */
  43.     (UBYTE *)"Show off requester library.",    /* Title */
  44.     NULL,                    /* Gadgets */
  45.     NULL                    /* Bitmap */
  46.     };
  47.  
  48. struct NewWindow nw =
  49.     {
  50.     0,0,                    /* LeftEdge, TopEdge */
  51.     WIDTH,HEIGHT,            /* Width, Height */
  52.     -1,-1,                    /* DetailPen, BlockPen */
  53.     IDCMP,                    /* IDCMPFlags */
  54.     FLAGS,                    /* Flags */
  55.     NULL,                    /* FirstGadget */
  56.     NULL,                    /* CheckMark */
  57.     NULL,                    /* Title */
  58.     NULL,                    /* Screen */
  59.     NULL,                    /* BitMap */
  60.     79, 30,                    /* MinWidth, MinHeight */
  61.     640, 200,                /* MaxWidth, MaxHeight */
  62.     CUSTOMSCREEN            /* Type (of screen) */
  63.     };
  64.  
  65.  
  66. struct Process    *myprocess;
  67. APTR    olderrorwindow;
  68.  
  69.  
  70.  
  71.     /* I declared this variable as global, rather than just declaring it as */
  72.     /* a regular local variable because I need to make sure that all of the */
  73.     /* fields are initialized to zero. */
  74.     /* Also, the quit_cleanup routine needs to be able to access it to purge */
  75.     /* the directory buffers which I have chosen to use (by setting the */
  76.     /* FRQCACHINM flag. */
  77.  
  78. struct ReqFileRequester    MyFileReqStruct;
  79. char filename[FCHARS];
  80. char directoryname[DSIZE];
  81.  
  82. void ShowFileRequester()
  83.     {
  84.     char    answerarray[DSIZE+FCHARS];
  85.  
  86.     answerarray[0] = 0;
  87.  
  88.         /* Initialize the 'PathName' field so that the file requester will */
  89.         /* construct a complete path name for me.  It will also put the two */
  90.         /* parts of the answer (directory and file name) into the directory */
  91.         /* file name which I also decided to supply it with.  Since the */
  92.         /* directory and file name arrays are present, it will use their */
  93.         /* initial contents as the initial file and directory.  If they aren't */
  94.         /* present it will leave both blank to start. */
  95.     MyFileReqStruct.PathName = answerarray;
  96.     MyFileReqStruct.Dir = directoryname;
  97.     MyFileReqStruct.File = filename;
  98.  
  99.         /* The directory caching of this file requester is one of its nice */
  100.         /* features, so I decided to show it off.  It is completely optional */
  101.         /* though, so if you don't want it, don't set this flag.  If you do */
  102.         /* want it, don't forget to call PurgeFiles() when you are done. */
  103.     MyFileReqStruct.Flags = FRQCACHINGM;
  104.  
  105.         /* Initialize a few colour fields.  Not strictly necessary, but */
  106.         /* personally, I like having my files a different colour from my */
  107.         /* directories. */
  108.     MyFileReqStruct.dirnamescolor = 2;
  109.     MyFileReqStruct.devicenamescolor = 2;
  110.         /* I could also make it larger, pass it a file and/or directory */
  111.         /* name, set the window title, set various flags and customize */
  112.         /* in many other ways, but I wanted to show that it can be easily */
  113.         /* used without having to fill in a lot of fields. */
  114.     if (FileRequester(&MyFileReqStruct))
  115.         SimpleRequest("You selected the file '%s'.", answerarray);
  116.     else
  117.         SimpleRequest("You didn't select a file.");
  118.     }
  119.  
  120.  
  121.  
  122. void ShowColorRequester()
  123.     {
  124.     ColorRequester(1L);        /* Pass it the color you want to start out being highlit. */
  125.                             /* It actually returns the colour that the user chose, but */
  126.                             /* I'm not interested in that value. */
  127.  
  128.         /* If you want to give more parameters to the colour requester, you can */
  129.         /* call ExtendedColorRequester with the address of an ExtendedColorRequest */
  130.         /* structure.  Currently the only additional parameter this lets you pass */
  131.         /* is the address of the window the requester should appear in.  This can */
  132.         /* normally be done more easily by specifying it in the pr_WindowPtr field */
  133.         /* of your process structure, as long as you are a process rather than a. */
  134.         /* task. */
  135.     }
  136.  
  137.  
  138.  
  139. void ShowSimpleText()
  140.     {
  141.     SimpleRequest(
  142. "     SimpleRequest()  is  a  tiny bit of\n"
  143. "glue  code  which  passes  a single text\n"
  144. "string  (with  optional  printf()  style\n"
  145. "formatting) to the TextRequest() routine\n"
  146. "in  the  library.   The  SimpleRequest()\n"
  147. "routine  can  be  easily modified to fit\n"
  148. "your own peculiar purposes.");
  149.     }
  150.  
  151.  
  152.  
  153. char *yesno[] =
  154.     {
  155.     "no",
  156.     "yes",
  157.     };
  158.  
  159. void ShowTwoGadText()
  160.     {
  161.     short    result;
  162.  
  163.     result = TwoGadRequest("Just testing the two gadget requester.");
  164.     SimpleRequest("You responded with a '%s' to this requester.", yesno[result]);
  165.     }
  166.  
  167.  
  168.  
  169. char *response[] =
  170.     {
  171.     "You really should use it.",
  172.     "Excellent choice.  You have good taste.",
  173.     "Oh come one, make up your mind.\nYou won't regret choosing 'yes'.",
  174.     };
  175.  
  176. void ShowThreeGadText()
  177.     {
  178.     struct TRStructure    MyTextStruct;
  179.     short    result;
  180.  
  181.     MyTextStruct.Text = "     Would you use the requester library\n"
  182.                         "in your programs?";
  183.         /* The Controls field doesn't actually have to be initialized, unless you */
  184.         /* are using printf() style formatting of the Text string. */
  185.     MyTextStruct.Window = 0;    /* This must be zero or a valid window pointer. */
  186.     MyTextStruct.MiddleText = "Perhaps...";
  187.     MyTextStruct.PositiveText = "Oh yeah, for sure!";
  188.     MyTextStruct.NegativeText = "Methinks not.";
  189.     MyTextStruct.Title = "Show off text requester.";
  190.     MyTextStruct.KeyMask = AMIGAKEYS;        /* Allow only keys together with the amiga */
  191.                                             /*  qualifiers to be used for keyboard shortcuts. */
  192.     MyTextStruct.textcolor = 1;
  193.     MyTextStruct.detailcolor = 0;
  194.     MyTextStruct.blockcolor = 1;
  195.     MyTextStruct.versionnumber = REQVERSION;
  196.     MyTextStruct.Timeout = 5;    /* 5 seconds before requester cancels itself */
  197.     MyTextStruct.AbortMask = 0;
  198.     MyTextStruct.rfu1 = 0;
  199.     result = TextRequest(&MyTextStruct);
  200.     SimpleRequest(response[result]);
  201.     }
  202.  
  203.  
  204.  
  205.     /* I declared this variable globally, rather than just declaring it as */
  206.     /* a regular local variable because I need to make sure that all of the */
  207.     /* fields are initialized to zero. */
  208.     /* Also, the quit_cleanup routine needs to be able to access it to purge */
  209.     /* the directory buffers which I have chosen to use (by setting the */
  210.     /* FRQCACHINM flag. */
  211.     /* I could have used the same structure I used for the file requester, */
  212.     /* but I decided not to, so that the two requesters could have separate */
  213.     /* directory caches. */
  214.  
  215. struct ReqFileRequester    MyFontReqStruct;
  216.  
  217. void ShowFontRequester()
  218.     {
  219.     char    fontname[FCHARS];
  220.     char    dirname[DSIZE];
  221.  
  222.         /* You do have to tell the font requester what directory to look */
  223.         /* in, usually fonts:. */
  224.  
  225.     strcpy(dirname, "fonts:");
  226.     fontname[0] = 0;
  227.  
  228.         /* Tell the file requester to be a font requester. */
  229.         /* The directory caching of this file requester is one of its nice */
  230.         /* features, so I decided to show it off.  It is completely optional */
  231.         /* though, so if you don't want it, don't set the caching flag.  If you do */
  232.         /* want it, don't forget to call PurgeFiles() when you are done. */
  233.     MyFontReqStruct.Flags |= FRQGETFONTSM | FRQCACHINGM;
  234.  
  235.     MyFontReqStruct.Dir = dirname;
  236.     MyFontReqStruct.File = fontname;
  237.         /* Initialize a colour field.  Not strictly necessary, but */
  238.         /* personally, I like having my fonts a different colour */
  239.         /* from the font size list. */
  240.     MyFontReqStruct.fontnamescolor = 2;
  241.     if (FileRequester(&MyFontReqStruct))
  242.         SimpleRequest("You selected the font '%s',\n"
  243.                       "size %ld, style %ld.", fontname, (long)MyFontReqStruct.FontYSize, (long)MyFontReqStruct.FontStyle);
  244.     else
  245.         SimpleRequest("You didn't select a font.");
  246.     }
  247.  
  248.  
  249.  
  250. #define    TEXTLENGTH    75
  251.  
  252. void ShowGetText()
  253.     {
  254.     char    mybuffer[TEXTLENGTH];
  255.  
  256.         /* Note that the buffer you pass to GetString must be initialized.  */
  257.         /* If you don't want any text to appear by default, just put a zero */
  258.         /* at the beginning of the array. */
  259.  
  260.     strcpy(mybuffer, "The default text.");
  261.     if (GetString(mybuffer, "Type anything, then hit return.", (struct Window *)0L, 50L, (long)TEXTLENGTH))
  262.         SimpleRequest("I'll bet you typed:\n"
  263.                       "'%s'.", mybuffer);
  264.     else
  265.         SimpleRequest("You didn't enter anything!");
  266.     }
  267.  
  268.  
  269.  
  270. void ShowGetLong()
  271.     {
  272.     struct GetLongStruct    mygetlongstruct;
  273.  
  274.     mygetlongstruct.titlebar = "Enter a number.";
  275.     mygetlongstruct.defaultval = 1234;
  276.     mygetlongstruct.minlimit = -100000;
  277.     mygetlongstruct.maxlimit = 100000;
  278.     mygetlongstruct.window = 0;            /* Must be zeroed or req.lib will use it as a window pointer. */
  279.     mygetlongstruct.versionnumber = REQVERSION;
  280.     mygetlongstruct.flags = 0;
  281.     mygetlongstruct.rfu2 = 0;
  282.     if (GetLong(&mygetlongstruct))
  283.         SimpleRequest("You entered the number '%ld'.", mygetlongstruct.result);
  284.     else
  285.         SimpleRequest("You didn't enter a number.");
  286.     }
  287.  
  288.  
  289.  
  290. void quit_cleanup(message)
  291. char *message;
  292.     {
  293.     if (window)
  294.         CloseWindow(window);
  295.     if (screen)
  296.         CloseScreen(screen);
  297.     if (ReqBase)
  298.         {
  299.         PurgeFiles(&MyFileReqStruct);    /* Only necessary if the FRQCACHINGM flag */
  300.         PurgeFiles(&MyFontReqStruct);    /* is set in the file requester structure. */
  301.         CloseLibrary(ReqBase);
  302.         }
  303.     if (GfxBase)
  304.         CloseLibrary(GfxBase);
  305.     if (IntuitionBase)
  306.         CloseLibrary(IntuitionBase);
  307.     if (message)
  308.         {
  309.         puts(message);
  310.         exit(10L);
  311.         }
  312.     exit(0L);
  313.     }
  314.  
  315.  
  316.  
  317. void _abort()
  318.     {
  319.     quit_cleanup("User abort requested.");
  320.     }
  321.  
  322.  
  323.  
  324. void bye()
  325.     {
  326.     myprocess->pr_WindowPtr = olderrorwindow;
  327.     quit_cleanup((char *)0);
  328.     }
  329.  
  330.  
  331.  
  332. struct gadgetandfunction
  333.     {
  334.     char    *gadgettext;
  335.     void    (*functionpointer)();
  336.     };
  337.  
  338. struct gadgetandfunction gadgetlist[] =
  339.     {
  340.         {
  341.         "Show the file requester.",
  342.         ShowFileRequester,
  343.         },
  344.         {
  345.         "Show the color requester.",
  346.         ShowColorRequester,
  347.         },
  348.         {
  349.         "Show a simple text requester.",
  350.         ShowSimpleText,
  351.         },
  352.         {
  353.         "Show a two gadget requester.",
  354.         ShowTwoGadText,
  355.         },
  356.         {
  357.         "Show a three gadget requester.",
  358.         ShowThreeGadText,
  359.         },
  360.         {
  361.         "Show the font requester.",
  362.         ShowFontRequester,
  363.         },
  364.         {
  365.         "Show the 'get text' requester.",
  366.         ShowGetText,
  367.         },
  368.         {
  369.         "Show the 'get number' requester.",
  370.         ShowGetLong,
  371.         },
  372.  
  373.         {
  374.         "Exit the demo.",
  375.         bye,
  376.         },
  377.     };
  378.  
  379. #define    NUMGADGETS    (sizeof(gadgetlist) / sizeof(struct gadgetandfunction))
  380.  
  381. struct GadgetBlock    gadgetblocks[NUMGADGETS];
  382.  
  383. void main()
  384.     {
  385.     short    x, y, gadgetnum;
  386.     struct IntuiMessage    messagecopy, *message;
  387.     struct Gadget        *gadgetpointer;
  388.  
  389.         /* First we do the usual opening up of libraries, pretty standard stuff. */
  390.  
  391.     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 33L)))
  392.         quit_cleanup("Requires 1.2 operating system.");
  393.  
  394.     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 33L)))
  395.         quit_cleanup("Couldn't open graphics.");
  396.  
  397.     if (!(ReqBase = (struct ReqLib *)OpenLibrary("req.library", 0L)))
  398.         quit_cleanup("Couldn't open the req library.");
  399.  
  400.         /* Then we open up a nice 640 by 200, three bitplane screen.  This demo */
  401.         /* can be easily modified to work on the workbench screen.  Simply */
  402.         /* take out the open screen command, and change the NewWindow Type field */
  403.         /* to WBENCHSCREEN.  All of the requesters will then open on the */
  404.         /* workbench screen. */
  405.  
  406.     if (!(screen = (struct Screen *)OpenScreen(&ns)))
  407.         quit_cleanup("Couldn't open screen.");
  408.  
  409.     for (gadgetnum = 0; gadgetnum < NUMGADGETS; gadgetnum++)
  410.         {
  411.         x = GADGETSTARTX + (gadgetnum & 1) * (WIDTH / 2);
  412.         y = GADGETSTARTY + screen->Font->ta_YSize + (gadgetnum / 2) * 20;
  413.         LinkGadget(&gadgetblocks[gadgetnum], gadgetlist[gadgetnum].gadgettext, &nw, (long)x, (long)y);
  414.         gadgetblocks[gadgetnum].Gadget.GadgetID = gadgetnum;
  415.         }
  416.  
  417.         /* Find the address of the last gadget added, the 'goodbye' gadget */
  418.         /* and adjust it so that it appears in the middle at the top. */
  419.     gadgetpointer = &gadgetblocks[NUMGADGETS-1].Gadget;
  420.     gadgetpointer->TopEdge = screen->Font->ta_YSize + 12;
  421.     gadgetpointer->LeftEdge = (WIDTH - gadgetpointer->Width) / 2;
  422.  
  423.     {
  424.     static struct ScrollBlock scrollbuffer;
  425.  
  426.         /* Create the scroll bar data structures. */
  427.     MakeScrollBar(&scrollbuffer, (long)HORIZSLIDER, 200L, 220L, 170L);
  428.         /* Link the scroll bar (prop gadget and two boolean arrow gadgets) */
  429.         /* into the gadget list. */
  430.     scrollbuffer.Prop.Gadget.NextGadget = nw.FirstGadget;
  431.     nw.FirstGadget = &scrollbuffer.ArrowUpLt;
  432.  
  433.         /* Set the prop gadget body to 1/3 size. */
  434.     scrollbuffer.Prop.Info.HorizBody = 0xFFFF / 3;
  435.         /* Set all three gadget numbers for easy identification of these */
  436.         /* gadgets. */
  437.     scrollbuffer.ArrowUpLt.GadgetID = NUMGADGETS;
  438.     scrollbuffer.ArrowDnRt.GadgetID = NUMGADGETS + 1;
  439.     scrollbuffer.Prop.Gadget.GadgetID = NUMGADGETS + 2;
  440.     }
  441.  
  442.     nw.Screen = screen;
  443.     if (!(window = (struct Window *)OpenWindow(&nw)))
  444.         quit_cleanup("Couldn't open window.");
  445.  
  446.         /* Now we set the pr_WindowPtr field in our process structure to */
  447.         /* point at our window so that DOS requesters and requester library */
  448.         /* requestes will open up on our custom screen, instead of on the */
  449.         /* workbench screen. NOTE!!!!!  It is VERY important that you restore */
  450.         /* this variable before the program exits.  This is why I make a copy */
  451.         /* of the previous value before I change it.  IF YOU DON'T RESTORE IT */
  452.         /* when you exit, NASTY THINGS WILL HAPPEN!! (but only sometimes).  */
  453.         /* If you execute a program WITHOUT using the 'run' command and it */
  454.         /* sets the pr_WindowPtr to point at it's window, and then exits */
  455.         /* without restoring it, the next DOS requester for that process will */
  456.         /* try to come up on a screen that NO LONGER EXISTS - which will probably */
  457.         /* BLOW UP YOUR MACHINE!  The pr_WindowPtr is restored in the bye() */
  458.         /* routine. */
  459.  
  460.     myprocess = (struct Process *)FindTask((char *)0);
  461.     olderrorwindow = myprocess->pr_WindowPtr;
  462.     myprocess->pr_WindowPtr = (APTR)window;
  463.  
  464.         /* Now we enter our main processing loop.  All we do is wait for */
  465.         /* GADGETUP messages (the only kind the IDCMP port is set to */
  466.         /* receive) and call the function associated with each gadget */
  467.         /* that the user presses.  One of those gadgets is an exit */
  468.         /* gadget which calls the 'bye' routine, which frees up all */
  469.         /* resources and exits.  This is how this loop, which seems to */
  470.         /* never terminate, terminates. */
  471.  
  472.     while (TRUE)
  473.         {
  474.         WaitPort(window->UserPort);
  475.         message = (struct IntuiMessage *)GetMsg(window->UserPort);
  476.         messagecopy = *message;
  477.         ReplyMsg((struct Message *)message);
  478.         gadgetnum = ((struct Gadget *)(messagecopy.IAddress))->GadgetID;
  479.  
  480.         if (gadgetnum < NUMGADGETS)
  481.             gadgetlist[gadgetnum].functionpointer();
  482.         }
  483.     }
  484.